﻿Public Class clsLXCK
    Public Function getListByProdId(prodid As String, status As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select a.*,b.type_value from sf.b_lx_ck a "
        szSql &= "left join sf.b_pgd_mes b on a.b_pgd_mes_sys_id = b.sys_id "
        szSql &= "left join sf.b_prod_info c on a.prod_id = c.prod_id "
        szSql &= "where 1 = 1 "
        szSql &= " and a.prod_id = '" + prodid + "'"
        szSql &= " and a.status = '" + status + "'"
        szSql &= " and c.status = '13'"
        Return DBacs.ExecuteSql(szSql, -1)
    End Function
End Class
